home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Scrap.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1017 b   |  65 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:07 PM
  5.     Scrap.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1985-1989
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT Scrap;
  19.     INTERFACE USES    Types;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. TYPE
  34. PScrapStuff = ^ScrapStuff;
  35. ScrapStuff = RECORD
  36.     scrapSize: LONGINT;
  37.     scrapHandle: Handle;
  38.     scrapCount: INTEGER;
  39.     scrapState: INTEGER;
  40.     scrapName: StringPtr;
  41.     END;
  42.  
  43.  
  44. FUNCTION InfoScrap: PScrapStuff;
  45.     INLINE $A9F9;
  46. FUNCTION UnloadScrap: LONGINT;
  47.     INLINE $A9FA;
  48. FUNCTION LoadScrap: LONGINT;
  49.     INLINE $A9FB;
  50. FUNCTION GetScrap(hDest: Handle;theType: ResType;VAR offset: LONGINT): LONGINT;
  51.     INLINE $A9FD;
  52. FUNCTION ZeroScrap: LONGINT;
  53.     INLINE $A9FC;
  54. FUNCTION PutScrap(length: LONGINT;theType: ResType;source: Ptr): LONGINT;
  55.     INLINE $A9FE;
  56.  
  57.  
  58.     { UsingScrap }
  59.  
  60.  
  61.     IMPLEMENTATION
  62. END.
  63.  
  64.  
  65.